home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / ClassEng / Listing2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-28  |  336 b   |  11 lines
  1. private
  2.   function GetPixelColor(X, Y: Integer): TColor;
  3.   procedure SetPixelColor(X, Y: Integer; Value: TColor);
  4. public
  5.   property PixelColor[X, Y: Integer]: TColor
  6.       read GetPixelColor write SetPixelColor;
  7. . . .
  8. // examples of use in code
  9. MyBitMap.PixelColor[I, J] = clBlack then
  10.   MyBitMap.PixelColor[I, J] := clWhite;
  11.